class ckTimer	extends date	public property start_time as float	public property end_time as float	public sub ckTimer()		//the constructor		msgbox("Created new timer")	end sub	public sub StartTimer()		me.start_time = me.totalseconds		//me.end_time = me.start_time	end sub	public sub EndTimer()		me.end_time = me.totalseconds	end subend classsub main()   	dim timer1 as ckTimer	dim mydate as date, d2 as date	dim i as integer	mydate = new date 		timer1 = new cktimer	i = timer1.parsedate("12/12/2010")	//i = d2.parsedate("5/6/2011")	mydate = timer1	msgbox("a. mydate.year is " & mydate.year)

	d2 = mydate	msgbox("b. d2.year is " & d2.year)
	i = mydate.parsedate("1/2/2012")	msgbox("c. mydate.year 2012=" & mydate.year)
	msgbox("e. d2.year 2012=" & d2.year)end sub